Sub muestra_err()
    Dim dividendo, divisor, resultado As Double
    dividendo = 10
    For divisor = 3 To -3 Step -1
        resultado = dividendo / divisor
        Debug.Print "(" & dividendo & ") / (" & divisor & ") = (" & resultado & ")"
    Next divisor
	End Sub
